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Foreword 


If the Oric-1 is the first computer you have owned then you 
have made an extremely good choice as you now possess 
a very versatile machine. 


The Oric-1, with colour, full graphics and sound, is ahome 
user Ss dream and the variety of programs in this book have 
been written to show off the capabilities at your fingertips. 


All of the programs can be used on the 16K, 32K and 48K 
versions of the Oric-1 and the necessary instructions to 
alter listings are given where appropriate. 


In addition to providing you with a wide selection of 
games, educational and business programs, | have included 
details for budding programmers. You will find how you 
can redefine characters, input machine codes, use a 
screen print and peek into the machine memory. 


If you have experience in programming you may well 
understand these functions already but, if you are a 
newcomer to computing you will find these programs an 
excellent starting point from which to begin writing your 
own material. 


Many of the programs include suggestions for adapting 
the content to input your own ideas and improve your 
skills. 


| really feel that this book contains something for everyone 
and hope that it provides you with hours of entertainment 
and challenge. 
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PROGRAMS 
FOR FUN AND GAMES 


This first selection of programs is designed to 
show off the colour, sound, graphics and 
speed of your Oric. 


REACTION 


Here is a simple little test to check your reaction speed 
before you try some of the tougher space games. 


The Oric_ will emit atone-—hit any key to stop the counter. 
Beat the clock. 


If you are having a party and think some people shouldn't 
drive home let them try this test, it could be a lot cheaper 
than a breathalyser test. 


RET 

REM REACTION 

RES 

CLS 

PRINT? PR IMT 

IF RMDC 19>.9935 THEM 2a 

KB=h Es 

IF KS="" THEM 1Se 

PRINT "CHEAT! !” 

GIT 138 

MUSIC 1.3.6, 

PLAY Ls. 1. See 

abel a 

IF k=" " THEM Osil+1: GOTO sen 
PRIHMT "YOUR RERCTION TIME Is "Gt 
PRINT 

ee 


BOT 158 


ee pee pepe ee et pe 
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CATERPILLAR 


You are in control of the body of a fast growing caterpillar. 
Move using the O and P keys for left and right and the O 
and A keys for up and down. These control keys can be 
changed, if desired, by altering lines 290-320. Scattered 
around the screen are a number of spiders which must be 
avoided. If you hit either your own body, or one of the 
spiders, or try to leave the screen, the game ends. One 
point is scored for each body segment produced. Score 
320 and a new screen will be generated. 


There are two routines of particular interest in this program, 
one is the delay loop in line 370. This has the effect of 
speeding up the movement as the score increases. The 
second is the “High Score” table in line 540 onwards. This 
routine can be incorporated in many of the scoring games 
in this book. 


The memory locations in line 140 are for the 48K Oric. If 
you have the 32K machine, use 30656 and 30671. For 
the 16K version use 14272 and 14287. 


al oe 2 od 
1146 REM CATERFILLAR 
Lee RET 
1386 CLS 
135 REM DEFINE CHARRCTERS 
144 FOR J=47e4e TO 47s 
120 READ A: FORE J.A 
168 WHEAT oJ 
170 DATA 8.25. 38,63,62,295.8,8,353. 19.44 
631,386,435, 15.53 
i?S REM SET UF SCREEM 
188 TMK 2: PAPER & 
{oe FOR wil TO oe 
tA RLS THTS RMD | RSP OF] 
M Re=TANTO RMD 1 ke +] 
eet PLOT Fi. ke. lel 
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PROiMT HRs 1? 3 

REM LOOK AT KES RBORRD 

TS 2K Ss 

Te T#="" THEM 298 

Aa TS 

IF Ase" THEM =i 

TF Age" AY THEM s+] 

TPF Mg=" 0" THEM oR 

IF AS="F" THEM Ket] 

REM TEST FOR SIREEHM EDGE 

IF 4338 OR RCA OF oes Ce ofa THEM 
IF SRM eo ot bse THEM Sed 
MIS IE 1539 Sa 
PLR? tos d. 4 
pat eben a oe § 

REM DELAY Lode 

FOR O41 TO 250-S0 : oHextT © 

REM EW SCREEM 

IF SCs320 THEM CLS: GOTO tee 

PLOT Baty Lee 

BOTH 26a 

RE WIT 

PHPER ft 

EMPLODE 

PAPER i 

POR Jit) TO 28: FRITH Heke T oi 

PRINT UVOUR SCORE: "GSC 

PRTHT CHfeee 1? 

TMPLUT NOL PMRni a Midd 

TP LEM His o>de eet Pe TMT TOO Loe 
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(GOTO Sse 


REM BUBBLE SORT 
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Tr Se Joe ole poo THEM Bet 
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NEST J 

CLs: THK @: PAPER ¢: PRINT 

PRIMT ” HIGH SCORES" «Pre Lh 


rik fdesy To 

PRINT " "sms" "sSemos* 9 5 

PRIMT Mae M3 

HEXT MH 

PRINT: PRIHT ” PRESS FOTO PL 


PRINT * = TO STor" 
REM LOE AT RE BOARRD 

GET (tt 

Te Ge" THEM oe 

Stats 

BOT Ls 
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MISSILE DEFENCE 


You have six cities to protect from an avalanche of enemy 
missiles. Move your laser sight with the four arrow keys. 
Fire with the space bar. 


The game will end if all six cities are destroyed. 


The memory locations used in line 200 for character 
definition are for the 48K Oric. If you have the 32K version 
these should be replaced with 306 72 and 30703. For the 
16K machine use 14288 and 14319. 


Lea Re 

11@ REM fMISsILE DEFEHMCE 

Lea REM 

13s@ CLS 

135 REM OISABLE CURSOR 

146 PRINT CHR. 1 

(7G REM PRINT TITLE: PAGE 

19@ PLOT 11,12. "MISSILE DEFENCE” 
198 WAIT 2h 

192 CLS 

133 REM MOVE CURSOR POST TIOM 

194 FOR ff¥=1 TO 2b 

136 PRINT 

198 HEeT {4 

199 REM DEFIWHE CHARACTERS 

286 FOR J=4°g5e TO 47057 

21Q@ RERD R 

eek POKE J. A 

2a8 HERT J 

24H DATR G3, 45 63.45, 635.45,6°5, 

ae DATA B,260,e 4,28, 28,28,28,8 
26@ DATA le.12.12.63.83,1lé,1l2e.le 
era DATA 42.e¢1-.42.2¢1.42.2¢1.42.21 
26@ REM INITIAL VALLES 

290 Skele:sy=15 

SH FOR TO 9 

S18 Re Jars 

328 0 J o= INT A | WS MR Sl a 
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23 


21 
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MEAT J 
LOSUE 1age 


4 JA: BLelo: Mle rs 


O$= "SCORE: "+STREC SO 
PLOT 21,.8,0% 


A PLOT 8.8.2 


DS="MISSILES: "+45 TRS ML > 
PLOT 4.8.05 

GOTO Laer 

REM MOVE MISSILES 


A Je Jed 


IF J©1@ THEN J=1 
IF J¢1+SC-20 THEN RETURN 
PLOT CC J2RG Jd," 9 

RO JSR J 242 
MESCRMC CC 12. Re S22 

IF ¥<>122 THEM 60a 


. PAPER: 4 
4 ESPLOCE 


PLOT CC aR oy OR 


A WALT ek 


PAPER 7 

PLOT Cc J2,R¢I3," ” 
PLOT Ch Jo, RC j944.7 " 
PLOT CC.d97R6. ees.” ” 
BL = BL 1 

IF BL=@ THEM i308 


1 GOTO 612 


IF Ft Jo< bee THEM 628 
Fer | Sse: 
Me oe TAT RAD! Lo keS oes 

IF SCRMA Cl Uo. 260232 THEM &28 
Pit CAcJemeistae 6 

Pie: TU ipethd 

REM MOVE SIGHTS 

i tad 

TF kS="" THEM 748 

KAS KB 

ee 

ifsets'y' 


IF K#11 AWD Sel THEM SY=S''-1 
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Meese TH DY Wo wo | -) 
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IF Ke1l@ AND SY<23 THEM sifesiy'+f 
IF K=9 AMD SHAS? THEM SaeSe+ 
IF Ke AMD SeHol THEN SeH=Se~1 
IF filed THEM S4a 

REM SHOOT 

IF Ki >Se THEM 34 

Kae 

ZAP 

ML=MlL—~ i 

DS=S TRB. oe” 

PLOT 14,8,0% 

REM TEST FOR HIT 


4 FOR f=) TO S 
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Ty i 


Ph 


IF GlMoeSe AWD eo Mo=S' THEM 8a 
HEMT ff 

BOT Sede 

REM HIT 

PAFER 1 

EXPLODE 

sts SC+10 

Ds Tree ST 

PLCIT 2o,, bs 

PAPER 7 

memos T Te Rod 1 okSE +4 

IF SCRENC CCM. 26 oe THEM S16 
ae es 

PLOT O¥%,.07," ” 
LAHSSCRMC Sk. SYD 


A PLOT SK.S¥.0E" 
A RETURM 


REM BUILD CITIES 
FOR H=4 TO 29 STEF § 
FOR Pe24¢ TO 26 


20 PLOT MP, "222" 


MEST PM 
Ori! Shoot ee a 
RE TRI 

REM MATH LOGrP 
41 GOSUB 428 
BOSUB 71a 

BOT Legg 
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IF HS<SC THEM 
PR LMT 
FR IMT 
Efe TMT 
Pr IMT 
PRIMT 
ae Oe Oe ad Ob 
IF LEP TS< Oh. 1 oe" 
REM RESET 

SCs LS 

RESTORE 

GOTO a4 

PRIHT CHR 1? > 
EMD 


pd Some SS 


"HIGH SOORE: "GHS 


"OU SCORE: "3S 


ABAD 3 isk 
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OBSTACLE COURSE 


The object of this game is very simple. 


All the player has to do is to find his way from the top to 
the bottom of the screen using the four arrow keys. There 
are a few snags however. The player has to complete the 
game within 50 moves, avoid the obstacles and guide 
themselves by sound alone!! 


The memory locations in line 150 are for the 48K Oric. For 
the 32K machine use 30648 and 30655. For the 16K use 
14264 and 14271. 


(aa RES 

118 REM OBSTACLE COURSE 

128 REM 

138 CLS 

132 PRINT: PRIHT 

134 INPUT "SKILL LEVEL C1 TO S32" isk 
135 IF SkK“{1 OF SK>S THEN i134 
136 SK=SkK-18 

1328 CLS 

144 PRINT CHRS¢C 17 > 

145 REM DEFIME CHARACTER 
138 FOR Je4rese TO 473m 

16@ READ A 

i7e@ POKE wi. 

1s@ WHEXT J 

130 DATA 63.,.63.63,.63,63, 83,683.63 
195 REM INITIAL VALUES 

208 M/=5e 

228 Clb: R26 

eer REM PLOT OBSTACLES 

239 FOR Jee TO 25 

24@ FOR K=1 TO 38 

256 IF RNDCLoO>SK THEM 27a 
268 PLOT KaJ.113 

27o@ WEXT Ki. J 

250 WAIT 208 

238 FOR J=1 TO 24 
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PLOT . oe Me 

WAIT a 

PLOT (PR, fe 

WRAL T 35 

HES T oJ 

PAPER @:IMK 2 

REM MALTM Lode 

D$S="MOIVES LEFT = "45TRSC fi ae” 
PLOT 10.8,05 

PLOT @.8,2 

REM LOCK AT KEY GORRD 
KS=KE YS 

IF K$="" THEM sre 

Met! ee 

LF tt#v=8 THEM SSe 

Os 

Poss Fe 

IF KS=RHRSCS > THEM D=l~1 
IF KS=CHRSO9> THe C=l+] 
IF KS=CHRSO 18> THEM R=R+] 
IF KS=CHRS O11) THEM R=R-1 
LF Fel ea eS Cie { pot Pa Clie ie THE t4 saa at a 
IF Ree THEN STA 

IF SCRAC CR ry=119 THEM See 
MUS IC 1,36. 

PLAY 1.8.1. lene 

BAT 334 

MUSTO ds 1.3.8 

PLAY 1.8.1, 1iRe 

ee 

R= Pil 

BOT Bae 

REM FATLLURE 

FOR J=12 TO 1 STEF-1 
MUSIC 1.2,.J.8 

PLAY 1.8.1. abe 

WAIT 25 

HET J 

PLOT C.R,"°" 

PAPER *: TMK @ 

FoR fi] TO ee 


G38 
et dd 
ae 
ee 
fs 
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i7y itt 


£1 2 
- UG Hr om FY 


~} “si ~} ae 
Si 
VOW 


G3 hi} 


PRINT 

MEAT 4 

PRIMT CHR 17 > 
SOTO Fae 

RE SSUOCESS 
FOR J=1 TO le 
MUSIC 1,.3,.J,.@ 
PLA’ ds tt. d. Lea 
WAIT 2 

HEMT J 

GOT Bmag 

ERM 
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ALIEN STORM 


In this game you are pitted against a never-ending stream 
of bomb dropping aliens descending from the top of the 
screen. Move your laser base using the O and P keys. Fire 
with the space-bar. If you are hit by a bomb, or an alien 
lands on your base, the game ends. 


The memory locations in line 810 are for the 48K Oric. For 
the 32K model use 30664 and 30695. For the 16K 
version use 14280 and 14311. 


Lee RET 

118 REM ALIEN ST Orth 

{ee RET 

138 CLS 

{20 GOT Bie 

139@ REM MOVE ALIEM 

SAA PLOT AKA” 

2 ASA +) 

2M TF A’ése? THEM A’cs lL ARS TMT eM be 1 cok 
git] 

234 IF AY=26 AMD Bee THEM 1e@18 

23S REM WHICH TYPE 

S40 TF AYY2=IN TOA eo THEM Abe Hee Le 
12 ELSE ACS=CHRS* ies 5 

254 PLOT ARK AYS ACS 

260 MUSIM 1s3.3.8 

27 FLAY 1,.8,1. 288 

S008 RETURM 

S18 REM MOVE BoOteB 

sek LF t= THEM Med Meee ys: GOTO 4 


34 PLOT faut." 

St ee 

> REM HIT 

Mo TF MoS AO Mkebs THEM Laie 
OLE Me25 THEN Mag: BOT See 
ra PLOT Meh 

Mie RE TUR 


4104 
a 
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446) 
4328 
458 
472 
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I 
ral] Sa a 
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“1 
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ar 4 
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ea 
ae 
Pad al 
S13 
S828 
B38 
4a 


REM MOVE BASE 
THK E'S 

IF T#="" THEM 458 
AS=TS 

PLOT By Ey r' Se 


TF AS" AMD BRoL THEM BeeBH~ 1 
TF AS="F" AND BROS? THEM BM=Bh+ 1 
REM FIRE LASER 

IF AS< >” " THEM 636 

PLOT BA, B'~1. S% 

ZAP 

PLOT BH,B7—-1," " 

scx | f=! i) 

IF BK“ >A THEM 83a 

REM OM TRRGET 

PLOT Bx 6. BS 

PAPER 1 

EAPLODE 

Sl=SC0+18 

DS=S TRB. Slo 

DIS=R IT GHTS! OS. LEW. DH I~ 1 
WAIT 3 

PLOT Bs, 8¥e1a" ” 

PLOT 19,.8,01% 

PAPER 7 

PLOT AKA" 

REM WEW AL TEM 

AY'= J. 

AKZ THT. RAMOS 1 RSE o+ 1 

PLOT Be. BY’. BS 

RETURM 

REM DEFINE CHARACTERS 
FOR Jed? a4 Th 47ers 
READ AS'POKE J.F 

HET oJ 

DATA 8.38.63, 45,635, 12,18). 33,8) 38,6 


3,45,63-l2,lé2,1le 


S58 


DATA @.12, 12.3508, 63.83,63,63, 12,12, 


lés Les le. Le. le. le 


S55 


Be 


REM ASSIGMH CHARACTERS 


tm, 5 ) ; ) 
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7a BS=" if" 

A BYSSh Bese As]: AKeLS 
@ Ase P” 

MA FOR J=] TO Cé: PRIWT: MeExT ol 
146 FPRIWMT CARSC 1? > 

2M PLOT 12.8. "SCORE: " 

25 REM fA LOOP 

3950 GOSUB 2a 

a4 GOSUE 428 

960 GOSUE Sia 

7A GOSUB 428 

9908 GOTO 332 

1404 REM BASE HIT 

18210 PAFER 1 

1928 EXPLODE 


1930 PLOT 190,12:"G RAE a 
1@32 PAPER ? 
1H40 PRINT "OUR SCORE: "isl 


B42 PRINT CHR 1? 3 
1856 EWC 
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MONEYBAGS 


It's pennies from heaven, or at least dollar signs from the 
top of the screen, in this game for your Oric You control a 
catcher at the bottom of the screen, moving left and right 
with the O and P keys. Catch as many of the dollar signs as 
you can, but miss 20 and the game ends. 


120 REM 
145 REM MOWEYGAGS 
118 RET 
116 CLS 


120 PLOT 16s 125'N ON EY BAe eS 
ec WAIT Sue 

le¢ GOTO See 

125 REM MOVE DOLLARS 
138 J=J+1 

132 IF J=1@ THEM J=1 
134 IF J71+5C-28 THEM 330 
136 IF RHDC1o>.9 THEN 33 
146 PLOT CC Jaume Jo.” " 
158 Re oe +] 

155 REM CATCH? 

168 [F RC Jot ees THEM eek 
176 IF Ce Jo< oC THEN 2ee 
188 MUSIC 1,.4,5,8 

196 PLAY 1,.4.1,.356 

192 REM INCREMENT RE 
200 SC=SC+10 

21g GOTO ere 

215 REM MISSED 

eee IF Rood ee6 THEN sak 
230 MUSIC 1.3.3.8 

2£4@ PLAY 1,.8,1,408 

e8 CH=ChH+ 1 

259 REM EMD OF GAME 

260 IF CH=28@ THEM we 

265 REM Web POST TIOM 

27 Co Joe IMTS RHDC 1 RS S42 2 
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Re j= 1 
GOTO 338 
PLOT C<Jo.RC 30,36 


RE TLRM 

REM MOVE CATCHER: 
KS=KE YS 

IF KS="" THEN 464 


PLOT CC.CR,"” ° 

IF k$="0" AMD COre THEM Co=C0~1 
IF KS="P" AMD CC<36 THEN CC=lC+) 
PLOT CC.UR, "=" 

RET UR 

REM START 

CLS 

PAPER @ 

INK + 

Jay 

CH=2 

a 

PRINT CHR. 17 > 

FOR M=1 TO 26 

PRINT 

MEMT f4 

CRees: Cl=168 

PLOT CC,.CR,"-" 

FOR f=1 TO o 

Rid ht a= 4 

Ceo INT’ RMDY 1 oASa+ 1 
MEAT [4 

REM MAIN LOOP 

BOSUB 40 

GOSUB 138 

REM PRINT SCORE 
DS="SCORE: "+STRS“ SIT > 
PLOT 14,8,0% 

GOTO 614 

FOR M=10 TO 1 STEP ~1 
MUSIC 1.3.8.8 

PLAY 1,08,1,488 

WAIT 28 

HEwT TA 


T4Q4 PLOT tis.de. "GAME it ¥ Se Re” 
faa WALT 2h 
768 PRIWT 


‘Aad LEP Tse Oi. doe" THehd S1a@ ELSE 


i 
ae 


762 IF HS<sC THEN NS=S5C 

764 PRIAT "HIGH SCORE = “iHS 
766 PRINT 

77a PRINT "YOUR SCORE = "GSC 
TSO PRIWT CHR. 17 > 

730 THPUT "PLA AGATA 5 od 

3 


% 


810 "PAPER ei Tbk w 
B20 EMD 
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ELECTRONIC ORGAN 


This program turns your versatile Oric into a mini electronic 
organ! 


The top letter row (starting with Q) forms the keyboard. 
There is a choice of envelope and note length to give 
different effects. 


Try starting with envelope 1 and a note length of 2000. As 
it stands, it only covers 12 notes, but this range can easily 
be extended, following the format of lines 185 to 240, 
using a second row of keys. 


{ea REM 

182 REM ELECTRONIC ORIG 

118 Fe 

115 Cus 

126 FRINMT 

tau INPUT UENVELOFE (=f 9° E 

136 IF E41 OR ES? THEN 125 

130 PRIN 

146 IMPUT "HOTE LENGTH © 1l-S2r6? oak 
145 IF Lad OF Leserer THEM 148 

18 PRINT 

155 PRINT "PRESS QWERTYULOPCI TO PLAY" 


168 PRINT 
165 PRINT "PRESS 2 TO STOP” 
L7@ PRINT 
175 GET AS 


i@G IF AS="Z2" THEN 270 
185 IF AS="Q" THEN Cea: M=t 
19@ IF AS="" THEM C=3:H=3 
195 IF AS="E" THEN O=3:M=5 
20@ IF Ag="R” THEM Cs3: Nes 


205 IF AS="T" THEN O=3: Hes 
21G 1F AS=°Y" THEM O=3:Ne19 
215 IF AS="Li" THEM Q=3:HeL2 
2e@ IF Ag="1" THEN O=4:M=1 
225 IF AS="0" THEM Os4: Mea 


238 
232 
ra 2a) 
245 
258 
fe be 
etd 
263 


Fat Tears Fart 
~ # 
a” Kh 


IF Ag="P” 
IF Ag=C" 
IF AS=" 9" 
IF O=@ OR 


MUSIC 1.0, 


THEN O=4: N=5 
THEM Cle4: Hee 
THEM Q=4:H=8 
H=@ THEN 175 
Hs @ 


PLAY Jobo eol 


N=: =a 
GOTO 175 
END 


LUNAR LANDER 


Now's your chance to start your astronaut training as you 
endeavour to guide your lunar module to a safe landing on 
the moon’s surface. 


Control the module's rate of descent by pressing the space- 
bar to fire your retro-rockets, but watch your fuel con- 
sumption. As it stands the game is difficult, but not 
impossible, to master. For the faint-hearted, the amount of 
fuel in line 230 can be increased to make the game easier. 


The memory locations in line 160 are for the 48K machine. 
If you have the 32K version, use 30672 and 30687. For 
the 16K machine use 14288 and 14303. 


188 REM 
1160 REM LUMAR LAER 
128 REM 
138 CLS 
144 PAPER &@: THK 
15a REM DEFIHE CHARACTERS 
160 FOR wis4 756 TO 4771 
17@ REAC A 
160 POKE J.A 
138 HEKT J 
280 DATA 
245 DATA @,.30,63.63,63.63.16. 51 
218 DATA 63,.63,63,.63,.63,.63,63,.63 
215 REM INITIAL VALUES 
228 HT=2 
23a VELAE: Flies 
240 PRIWHT CHR 1? 2 
S50 REM PUOT LUNAR SURFACE 
“589 PLOT diese, "ida tdi t iinet ta 
CeEcet eee eer cee a 
27M. PLOT Tv eor tA’ 
260 PLOT 33.25.7404 0" 
290 PLOT le2de. "dae" 
306 PLOT 36.24. ° 400" 
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JPInpe Hamu Boh hs he APR ee 


i) 


G2) iF i 


+ 


- 


BrEhEHp BES 
MMPIRMWAIQWAI GABA RAN ADM 


+. 
+t: 
S 


4358 
het 
rad, 


am, 
ae a 


4 ots 
= el 
bal Po 
bal eel 
a 
oka 
mak ka 
ea 
ibe 
pe be 
688 
om 
Eo acth’ 
ail 
FF 
fh 
Fa Ses 
ah 
be Le) 
belt 


RE TAT LOOF 

IF WTS 1 THEM HT=] 
PLOT 18,HT. 122 
fMWSIl l.e@.1e.8 
PLA’ Lsi.1.é6e8 
WAIT Se 

VELeVEL+, & 

p=" FUEL = Ue TRC RL 2 
PLOT 24.8. (ts 

PLOT fs fs 

IF Fl=8 TWEM Sie 
REM IGhnITe? 
KB K ES 

IF KhS=°" THEM Sia 
TF Ree!” THEM ie 
SHOOT 


4 WAIT diet 


REM DECREMEMT FUEL 
Fits ll 1 

IF Pulse TH 4h 

F Je hii 

VWEL=VEL<] 

PLOT (BsHT." 

HT= INTC HT+VEL 2 

TF ATSS28 THEM 36a 

GUT: SiS 

REM COMTACT 

Ire WeL<e2. 1 THEM 618 
EXPLODE 

PLOT Logos de 

PLUT 13 ta oe CRASHED ! 
BOTO 7 

MUSIC 1.5.6, 8 

PLAY sets ds cee 

WALT Se 
MUSIC ae 
PL? 1. by | 
WATT 
MUSTO 1.4,3, 8 
PLAY Lott. 1, 4b 
WAIT rei 


12.8 
, 3aaa 


mat 
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PLOT 11.12,"A PERFECT LANDING!" 
WAIT Sa 
RESTORE 


A PRIMT CHR 17 2 


GOTO 138 
PRINT CHS 17 > 
CLS 

FAPER 7 

IHF. & 

EMD 


ANAGRAM 


This game will print a series of anagrams for you to 
decipher. If your answer is correct, a new anagram will be 
given. Type “QUIT” to give up on a particular anagram and 
“STOP” to end the game. 


The list of words in the data statements of lines 520 to 540 
can of course be extended or changed to suit individual 
preferences. 


i RETA 
M REP RAMAGPRAI 
M RES 
A Cis 


PRINT: PRIMT 

Olt Wise Tei. te Leo 
LF | 

REM READ IM GATR 
READ WoC Ji 

TF Woe Jo" EMD? THEM eee 
ee 

IBITO Lee 

Aa bm | 

REM SELECT WORD 
R=TMTO RMDC 1 RL o+] 
AS=WOse ke 

Fike T=] To LEM! AB > 

R= LATO RAD! Loe L eS a+] 

TPF MBC Rone THEM Sek 
Mae Roepe as, Dd oO 
Heat f 

Fite T=1 TO le 

TF fise Toe?" THEM 4 
PRIWT fae [a3 

HEMT I 

PRIMT PR IMT 

IMRT ''OWR GUESS 5% 
rRIMT 


Fit 


MM fT Mm TM M A 


mS 


MM MM MM T 


mM & 


OA 


53 0? 2 9 oo GO oo OD he AO oD PG AO NG BO OG Re ee ee ee Re Pt Re 
NVM IMeK MOGI AUMEBOMeE DWH WMA Rohe 
ee 


ee] 


IF GS=AS THEM 4358 
IF G8="GUIT" THEM PRINT AS: PRINT: G 


Ri rel 


IF G8="STOP" THEM END 


A PRINT “TR AGATE" PRINT 


GOTO ee 


34 PRINT "CORRECT!" 


44 
450 
468 
47 
480 
490 
Bie 
i Pe 


eseal hove Pee 


Mitshil + | 

Pyspes 7 

FOR I=1 TO le 

rs Toe! 

MEST I 

Pre LT 

GST 246 

DATA FOME» MOD» MOLISE, TIGER, HOLWSE.A 


PPLE. TRAD. WORD RPART YY. CH OME Y 


a | 


DATA DIGIT. IDER. AHAGRAM. ORE TT. PEMA 


Y.FPERE. BIMARYT. PUPIL 


540 


DATA VIDED. RECORD, MODULAR LER. BOO 


K FILM, CRICKET.PICTURE 


rbd 


DATA EMD 


BREAKOUT 


This is a version of the popular arcade game of the same 
name. There are five rows of coloured bricks at the top of 
the screen. Try and demolish them with the bouncing ball 
from your bat. Move your bat with the O and P keys. 


A point of interest in the program is the use of the plot 
command in lines 280 — 320 to give different coloured 
rows of bricks. By plotting a number between O and 7 in 
column O in any row, the ink value will take the colour of that 
number. This can be used to good effect in many games. 


The memory locations in line 160 are for the 48K Oric For 
the 32K version use 30672 and 30695. For the 16K, use 
14288 and 14311. 


1@a REM 
Lif REM BREAKOUT 
128 FEM 
130 CLS 
i4@ PRPER @: TMK 


142 PRINT CHRO 17 2 

150 REM DEFINE CHARACTERS 

16a FOR Jis47ea5se To 4787S 

178 REAC A 

18e@ POKE w.A 

19@ HEXT oJ 

saa DATA @. 38,38. 30. 38, 38.38,8 
218 DATA @,4,8,8,8,8,63,63 

eon DATA 8.8, 38, 38, 38,0,4,8 
230 REM SET UF WALL 

240 FOR wies3 TO 

250 FOR K=2 TO Se 

26@ PLOT Kw. lee 

27 WERT K, 
238 FLOT @,- 
S90 PLOT @.4.2 
300 PLOT 0,53, 3 
S18 PLOT 8.6.4 
320 PLOT 8.7.5 
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REM DMITIAL VALUES 

BLS 

Bl=16: bR=24 
Cee: eee sis] 

R=THTO RMS 1 pA o+18 
BIS Saw 

P=" BALLS: "+ STR BLY 

PLOT eS », | 
DS="SCORE: "+S TREC SIC > 

PLOT at. bts (1 

PLOT @.8,e2 
PLOT C.R." 
zl +s, 

Fo Fat oe! 

452 IF {23 OR C41 OR R>eée OF RL THEM 
468 

$54 LA=SCRMi IC, Feo 

$60 IF (<2 OF 0336 THe «=~ 

47 TF Fee THEM ‘ey 

454 [FF e#é2é THEM Soa 

430 MUSTC 1.1.9.8 

SAM PLAY 1,8,1,. 28 
“10 SLL ~1 

se DS=S TRB. BL > 
Si¢ PLOT 13.48.05 
=e IF BlL=8 THEM Lege 

24H SCS LI Se 

S68 PLOT CR," ” 

S77 GOTO S48 

IF LA=3a2 THEM 67 

IF LAS eles THEN 6228 

Boe fl tel ze 

MUSIC 1.4.2.8 

PLAY Ls ls. eee 

IF FRMOO L3o>.35 THEN #=~x 
GBOTO ree 

IF LAelee THEM s<' 

634 PLOT G.ks" " 

64a MUSIC 1.3.7.8 

B4e SC=S0+18 

B58 PLAY 1.8.1. eee 


Fi iy OF he 


ty 


” 


Bish A - VD 


BIO wsoOIVPaIdsiesooan ui 


ARBAB RWW WO Us 
? 


i 
iS 


tA 


reo: Fy 


iF 
Ieee NM TN 7 Ww 
VAM A SMD 


Ty Oy Os Fy 


67Q PLOT f.R.75" 
YOR KS=KE S'S 
re4 GOSUB 9$Be 
Y1@ IF Kk$="" THEN Se 
fee GOSUB SEe 
YS TF Kk6="O" AND Bol THEM Bo=8C-s 
760 IF Ks="F" AND BOSS THEM BC=BC+e 
734 GOSUB Sag 
7S Ds=STRBC ST 2 
BVA PLOT 27,8, 0% 
S19 GOTO 438 
B35 REM BAT 
S00 FOR M=8 TO & 
9128 PLOT BC4+M. BR. a” 

“4 MET f4 
3H RE TUR 

S REM WO GAT 
SW FOR f= Toh 2 

A PLOT Bt+td, Be” 
378 HEXKT [4 
38 RE TUR 
18a IF SO PHS THEM HS=SC 
10186 FOR M=1 TO 27: FRINT: HERT [4 
142@ PRIWT "HIGH SCORE: "GHS 
1830 PRIWT 
{ada PRINT YOUR SCORE: "550 
Lasse FR IAT 
1O6@ THMRPUT "PLAY AGAIN” i te 
a7 TF LEPTS¢ 0S, 1d o="N" THEM Lilia 
1as8 Sle 
{aow CLS 
1148 GOTO 2328 
11180 PRIWT CHR. Lr > 
1120 PAPER YY: INk @ 
1138 EMD 


RESCUE 


Ever fancied being a knight in shining armour? 


Here’s your chance as you strive to rescue the maiden in 
distress from the black magician’s castle. 


Move your knight using keys O and P for left and right, and 
OQ and A for up and down. 


One problem — the evil magician is throwing large boulders 
at you! If you are hit by, or bump into one, you fail. 


The difficulty of the game can be varied by changing the 
loop count in line 630. 


The memory locations in line 560 are for the 48K Oric If 
you have the 32K machine these should be changed to 
30672 and 30703. For the 16K version use 14288 and 
143.19; 

aa REM 

1@35 REM RESCUE 

1186 REM 

115 Chis 

126 Fi) lees Rh SS CW Ee” 

go WAIT She 


hi 


122 
13@ GOTO San 

igd@ REM MOVE 

15a KK Es 

16@ IF KS="" THEN RETURN 


oe,” 

"Oi" AWD Ged THEM o=t~4 
TRY ORD Cea? THEM tele t 
"OE" AMD Rod THEM Fi=R- 1 
aie Ir TS RMD Rilo THEM Rak+ 1 
eet Ir Rid lo Rosse THEM ese 

28 IF Sc RNC Coke iee Oe SCRMC DJ Roe Los 
THEM Sim 

foo REM HIT BY ROCK 

S38 ERPLODE 

eae PLOT Levdle."S FP LAT of" 

26H WAIT ie 


C3 


LU FLOT 
18@ IF 
198 IF 
ets oT 


ANF AN 
we ae 


38 Hou 


k 


a kl 
eo 
oak Tae 1 
tae ecel 
eral 


7h i 


fs 3 
hi bi he ee MAD 


i 


i ead 
“re = 
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‘Rf fF 
fH i 


Ps 
A 


¥- 
+—_ 


LO 3 -si 


58) 
MLA LS H MM & 


Tm Ht 


TLAGR CA Se f 0D 0) oo he OO) oo ik 


mii 
_ 


é 
Pe 


int 


~ 
—— 


i | 
Sete 


Ker ke 
ce Pe Pe 


walt = hl 


ee ee on 
3 fre we Ms WY Ge mi Ni 
WM Mm LAD 


“Tr. 
— 


4 


+ OY 


f= “en ’ 
fy itd 
Feb LA 
apa 
Eth 
Bre 
rahe 


BIT Se 

aj 5d We Od oe aa 

REM THROM Rie 

RSI! Reo. 1 RLS ot+k-6 

IF Rivee OR Rl<l THEN See 
=IMTORMO 1 ok LS o+0~-6 

IF Reese OR Rei 1 THEN Bee 

IF RAMDS 103.5 THEM RETR 

ASTRA Baty rid 2 

REM CASTLE 

IF aArleL AWD we ded THEM RETURN 

IF ##1le24 THEW PLOT R2.R1,°3": GoTo 


MUSIC 132,348 

FLAY 1.1. see 

PLU! Reshiy o" 

Pe T Lipth4 

REM START 

CLS 

REM TWRM CFF CURSOR 

PRIMT (HR. 17 

Foe Je, TO 26 

Fre LMT 

MEAT 

PAPER tt: Te 

REM REDEF IME OHASACTERS 

Pore J=4 758 TO 4? aa? 

READ A 

POKE J. 

MEST i 

DATA 42,635. 42,635.42. 63) 46.62 
DATA 42,652.42. 6e,42, 62.25, 38) 
DATA levis. le. Sis 44.18,18,.18 
DATA le. ae. Ge, G3,63, 91.30. le 
REM SET UF SCREEN 

FOR Ji TO “er 

RUST RMD. 1 ASS 2+ 1 

Re= TMT. PND 1 2#2S 044 

PLOT Riw«Rea #” 

| a 

REM ASSIGH GHARADT RRS 
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IMU ROME Bw 
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PLOT wey ta"! 
Pit soe eS 
se eabee 

(ate 

PLOT Coa U9" 
Pete 74 “AIM LO 
BOSWE 2 
Pitt {Se 

UT Ci ro 

REM SUCCESS 
Cie r= | TO 4 
PLR G4. 3. Gly & 
RERO f4 

MUSTO Lea. te 
PLAY L1G, Lee 
WAIT Sa 

MEAT 
WAIT 
PLAY 
DATA 
PLOT 
Fre Dd T 
PRIMT "(OUR SRORE: "Gta Shh ook Le 


tA 

te Eb 
Levees 
! ,TMDBU MADE IT!" 


oo ae 


sie 
esle 


FRED MT 

REM EMO ROUT IME 

IMePUT URLAY AGA 5 oe 

FRIMT (CHesc 17 3 

TF LER TS. Os. 2 >=" THEM S40 ELSE Fk 


PAFER fi lok & 
EME 


ARTIST 


Using the keyboard of your Oric you can draw straight onto 
the high resolution screen. 


As you will see the instruction for control keys is in the 
program itself so, once you have entered the program, Oric 
will do the rest. 


RES 

REM ARTIST 

4A REM 

A RLS: PRINT: PRIOIWT 

REM FRIANT INSTRUCTIONS 

PRIMT "USE KEYS 1 TO * TO CHAHGE ¢ 
COLOUR s BR TT 

let PRIWT "RRROW KEYS AMD LDR To RAL 
"SPRINT 

126 PRINT "SB KEY TO TURN OFF": PRIWT 
128 PRIAT °O Key To TiWkeM OW: PR IMT 

13H FPRIWT "S KEY TO STOR”: PRIWT 

132 PRIWT "PRESS SPACEBRR’ (GET Ma 

Visd Ae Lew Y=] ae 

136 HIRES 

135 REM LOOK AT KEYSBORED 

140 GET Ks 

(Be IF hS="6" THEM b= 

134 TF Daaaitendl THEM B= 
136 TF hS2"5" THEM TERT: EM 

160 DF KS@CHRSC 11> AMD Yee THEM Yev-1 
17 TF Ke CHRS 1D AAD Yo THERM ff e'y'4+ 
1 

ts IF MS=CHRS 0S > AMD Kos THEM KekK~] 
130 TF KSB=CHRSC So AMD KASS? THEM week 1 


M A 


H 


hee MH 


Co 


ke 
a 


1 
1 
1 
1 
1 
1 


hs ft 
fu 


_— 


192 [TF he="U" AMD Ree AMO oe THEM Me 
ee 

134 [F KS="7T" AMD Ate? AMO ee THEM 4 
sb Lt Ssetylm 1 


47 


196 iF Mie"? RMD Kee AMO Ye loe THEM «# 
sate Loi yay | 
138 ITF Ke2="hK" AMO MSS? RAD Ve ioe THEM 
‘oat gat Sach ede os Myo cas Syed 

139 REM CHANGE COLOUR 
SAG TF ASCL KB o>4? AWD AS eg on Be THEM 
TMK WAL RB OD 
14o6TrF Bel THEM 2 
WM CURSET Hatta ld 
4 GOT t4e 
324 CURSET it. 
“4 

a) 


\. 


as 


BOSE Swe 

4A GOTO Lik 

mak DRAW be dad 

295 CURMOY -Lae-Lss 
iG ORAW Loi. 
215 CUR! —LieL, 
oeckd Pei TLifette 


—. 


{33 
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CIRCLES 


Your Oric is capable of drawing some beautiful and 
intricate patterns on the high resolution screen. 


The next three programs, Circles, Web and Chopsticks, are 
designed to show some of the effects which are possible. 
The outstanding point to consider is the effect of these 
programs from relatively short listings. 


All of these programs are simple to adapt to show off your 
own design skills. 


1@a RET 

116. REM CIRCLES 

12e REM 

138 HIRES 

135 TF RHDe 1 o>. 61 THEM ise 

144 Cel T CO RMDO 1 o#6+1 2 

15@ S=TAT RMD. 1 oke+ 1 o 

153 IF S=C THEM iS 

168 FRPER C 

17H INK S&S 

Lae RELHT. RAD! 1 eRe ee + 1G 

Loe Y= IAT RMD" 1 RL Se o+19 

208 R= THT RMD 1 okL et o+5 

218 IF #+Re235 Oe KeR< i THEM ise 
e280 IF Y+R?198 OF ‘vk. 1 THEM i398 
238 CURSET «foe , 

240 CIRCLE Fe. 1 


ea GOTO iso 
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WEB 
Fee tt 
REM WEE 
PETA 
FOR M=1 TO 1@ 
HIRES 
RL=DTMT. RHO 1 eke o+] 
FOR J#l To £2 
RET? RHDe 1 oeeRE +e 
BELTHT* RHDG 1 o#1 358 do+ce) 
RZ=THTORMOG 1 okG o+] 
IF Rieke THEM 138 
PAPER RL: INK Re 
r=} 
CURSET A.B.S 
CIRDLe. Med 
=k 
IF AtRe235 OR B+Re1S3 THEM sag 
IF A-R«AS OR B-RS3 THEN 306 
BOTO 25k 
MEAT 
WAIT Lea 
Hee T TF 
TEAT 
EMD 


Fie 


TS it 
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=. 
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ee IS 
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fe % %~ we 
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CHOPSTICKS 
PEM 


REM CHOPSTICKS 

ra oe 

Hikits 

Res TT Ride | ke O47] 

THE Fe 

R= DATS Reb. DRA Se oe 1 
ret MT Rio! | ORL Se +d 
MURSET RL. ke. 

Re TAT! Rele f oRL e b+ Li 
Fecha TET Pon DAS et ot | 
IF (Rites o-ese THEM 1468. 
IF Chetek ool oe THEM 14s 
DRAW Fi. Rebs d 

mrih+ 4 

IF CMS 2Se THEM 1 4e 

WL TL ees 

hd i 

GIT Vis 


COMPOSER 


Your Oric has some very versatile sound effects, not 
available on most home computers, due to its use of a 
special sound synthesis “chip”. 


I've included two programs to illustrate some of its 
capabilities; Composer, which generates a random series 


of notes and Clementine, which gives a fair rendering of 
this well known tune. 


1a RET 

118 FEM COMPOSER 

1260 REM 

138 ETH! Rood 1 oko aed 
144 P= THT¢ RHO. 1 AL eee +See 
LSA M=THT! Rol 1 ke a+ 
L6@ Hele BMD. 1 oie a+ 
Tre fist 1. 0.M.& 

1580 PLAY tee 

Let We TT eM! 1 ae b+ eS 
138 WAIT bd 

Sh CH= ChM+ 1 

218 TF CeHe258 THEM Iie 
216 WAIT 2 

2eQ@ PLAY 8.8.8, 2 

2H EMD 
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3 


Po fe ha he ee Re ee Re ee 
Gsm AR yy, 
TATOO DDS OH B 


xt i 


Ty fF CF OP Ai wih 


~} oD we 


f,3 fu 


CLEMENTINE 


REM 
REM CLEMENMTINE 

REM 

READ WH 

IF H<@ THEM O=<H: GOTO i308 
IF Het THEN 2aa 

MUSIC 1.0.6. @ 

PLAY 1,8,1.2000 

WAIT 45 

GOT 136 

RESTORE 

WAIT Sag 

GOTO 138 


DATA 2.5.8. 8.3,12.12.12.8.8,.12,-3 


Sitormer iar ie lUaite 


re © 
DATA w-Ss 1s dlswres le. Tele. 8.6.12. 18, 


2, 
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INVADER 


Once again it’s time to defend the Earth as you shoot down 
a never ending stream of alien invaders. Allow nine to 
escape and the game ends. Press the space-bar to fire. 


The memory locations in lines 160 are for the 48K Oric. If 
you have the 32K machine, these should be replaced with 
30672 and 30703. For the 16K version use 14288 and 
14319. 


{ea RES 

116 REM IMVAGER 
128 RES 

130 CLs 

eae BS=9 

15@ PAPER 7:IWK 2 


155 REM REDEFINE CHARACTERS 

168 FOR Je4Pe5e TO 47@s7 

17@ READ A: POKE J.A 

188 WERT oJ 

190 DATA @.380,63,.435,635,.12,18,33,68,8.12 


slé. le. 4.8.8 

200 DATH Bole. 12. 358,83. 63,835.63, 42.8.3 
3,8,1,.32:1,28 

218 FOR J=1 TO 26 

ee PRINT 

ao MEAT 

244 PRIMT CHRS. 17 > 

200 BS=" "BAH 1S Byes 

268 PLOT 8.26, 4 

eve PLOT Be. BY. led 

256 PLOT @,25,1 

290 DS="SCORE: "'sRPLOT 6.8.09 


292 DS="BASES: "+STRSC BS): PLOT 26.4, 
300 AY=INTCRHMDe 1 kee 242 


318 Awa: f= 
328 PLOT Ao Ae 2 


se4 PLOT AXDAYS” " 
SSR Ae=Ae+ 1 
s32 IF AX=36 THEM Bs=b5-1 


tool "yee! Sore 
334 IF BS=@ AND AK=36 THEN 6g 
S36 IF AX=36 AND BS>@ THEN 290 


LOO oA BG) oo 


Wr DH OH Yi 


PLOT AKLAY. 2" 
KS hE 


a 


3 IF KS=""0R 2=]1 THEN 326 
3° ZAP 

safe Z=] 

386 PLOT Bx, BY-1. les 


} 


= IF AK SEK THEM PLOT Ba. Bret. tag 
TO 32k 

$00 PAPER | 

418 EXPLODE 

420 FLOT AKA Led 

43H SC=SC+18 

446 DSS Tree So 

$54 FLOT 3.8.08 

460 PAPER 7 

47H PLOT AKA." 

454 PLOT Be BY." " 

490 GOTO 2a 

BMG PRINT "COUR SCORE = 4S 
Bi@ FARER VY: Ioe & 

B20 PRINT CHRSC ir 3 

Bo EMD 


od. 
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MORSE CODE 


This program produces random letters of morse code. An 
optional display of letters and a range of speeds is 
included. 


At maximum speed it will generate approximately sixty 
characters per minute, which is adequate for the Radio 
Amateurs morse test. 


The duration of each letter can be adjusted by changing the 
value 8 in line 340. 
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SIMON 


This is your chance to see if your memory is better than 
your friend's. 


Oric will print out a sequence of numbers for you to 
memorise. You will then be asked to type in your answer. If 
you are correct you move on to a longer sequence. 
However, if you are wrong, Oric will tell you the correct 
sequence — and wontt you look silly! 
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CHASE 


This amusing game has you being chased around the 
screen by a strange looking monster to the accompaniment 
of some colourful sounds! 


Guide yourself around the screen using the four arrow 
keys, but keep you fingers moving fast to survive. 


The memory locations in line 150 are for the 48K Oric. If 
you have the 32K machine use 30672 and 30687. For 
the 16K use 14288 and 14303. 
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DIGITAL CLOCK 


This program will display a working 24 hour digital clock in 
the centre of your television screen. As listed it keeps fairly 
good time but it can be tinkered with by changing the value 
of the wait statement in line 550 if desired. If the alarm 
function is not required, then enter any number greater 
than 23 for the hour when setting it. 


Note that the z's in lines 310 to 350 and in line 512 are 
lower case. Press the CTRL and T keys together to change 
from capitals to lower case and vice-versa. 


The 


memory locations in line 250 are for the 48K 


machine. If you have the 32K Oric use 30672 and 30679. 
For the 16K version use 14288 and 14295. 
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INKBLOTS 


So you want to be a psychiatrist. Here is your chance to 
discover the dark corners of the mind. 


This program will display a random pattern of inkblots 
similar to those used in the Rorschach inkblot test. Some 
strange and amusing shapes are often generated. Test 
yourself and your friends to see what they see in the 
shapes. You could get some very interesting results! 
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WEATHER FORECAST 


If you share the view that all weather forecasting is guess 
work and that the meteorological people make it up as they 
go along — why don't you do the same? 


You can throw in hurricanes, tornadoes and floods if you 
wish, and you might even be right one day. 
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EGG TIMER 


Here is a new version of breakfast television. 


A working egg timer. You will be so fascinated with 
watching the sand run through your very own high 
technology egg timer that you will probably forget to take 
your egg off the boil. If you are the hard boiled type you 
should increase the value of the wait statement in line 
425. 
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FIREWORK 


Here is a crackerjack for your home entertainment. 


You can save a fortune, keep warm inside and spare your 
pets feelings by having your firework display indoors. 
Your high resolution screen will display a spluttering multi- 
coloured firework with accompanying sounds. You can 
even change the shape of the firework by playing around 
with lines 200 to 220. 


If you want to change the sound effects try lines 270 and 
2izZ. 
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MAZE CHASE 


Maze Chase has you being chased around a maze by four 
evil looking blue ghosts intent on your downfall! 


You can move around the maze by pressing keys O and P to 
move left and right and keys OQ and A to move up and down. 
Points are gained just by staying alive. 


You will need to keep your wits about you, as well as 
moving with lightning reactions, as this game needs some 
skill to play. 


1500+ can be considered a respectable score. 


The alarming rows of small z's in lines 690 to 930 form 
the structure of the maze, z being redefined in line 620 
onwards as a solid block. The structure of the maze can 
thus be easily changed by typing in a different formation of 
ZS. 

The memory locations in line 620 are for the 48K Oric For 
the 32K machine replace them with 30672 and 30695. 
For the 16K version use 14288 and 14311. 
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SNAP 


Do you find that everytime you play Snap in your house 
there is an argument about who got their snap’ down first? 


Now you can let your Orictake the strain — as long as none 
of the players have hands like sledgehammers. A pair of 
symbols will appear on the screen. When they are the 
same, player one presses the O key and player two presses 
the P key. 


Oric will be the judge and award one point for the fastest 
response. The slower player of the two will lose a point. 
Cheating will also cost the culprit one point. The game 
ends when either player reaches 20 points. 


1a REM 

118 REM SWAP 

i2@ REM 

13@ CLs 

142 PLOT 14.)2."5 MAP I" 
15@ WAIT See 

166 CLS 

i6S PRINT CHRO L? > 

17 PRINT PRIMT 

REM SELECT SYMBOLS 


woe, 

1860 A=THTC RMD? 1 OAL Eo 
1S B=THT. BHDC 1 ORL e943 
cht DSSS CAR A +” ied Ot: : De 
2he MUSIC lads Ss 4 

se} PLAY 1.8.1, See 

2i@ PLOT 14.12.05 

22 WAIT & 

See PLAY BB et A 

225 FEM LOGE AT KE'TEQRED 
feo KB= KES 

soe TF Ks<??" THEM eee 


25@ IF ASB THEN 230 
260 IF KS="0" AND A&B THEM Pl=Pi+1 
27@ IF KS="P” AMD A&B THEM P2=P2+1 


t - 
& 


77 


Gi GIG) G9 GG oo to PO fe fh 
fs f23 hj Fat {Tt} Fae LG i i 
WM HM fy AD LAD 
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IF kS="O" AHO ACS THEM FPi=Pi~d 

TF K$="F" AWD AS Se THEM Po=ro~] 
REM FPRIWT SCORES 

DS="FPLAVER OME: "+S Trp PY ot” FLA 
THO: "+S5TRSo Pe 2 

IF PieviS OR Perils THEM 342 

PLOT 2,.2,05 

PLOT 1132:;2 

Bits Lae 

EMO 


ENTRAPMENT 


You will need to be very friendly with your partner to play 
this game. Each player has to control four keys to stay alive. 


Both players control their own snake which winds it’s way 
around the screen. If a snake hits any obstackle, including 
it's own body, or tries to leave the screen the player loses. 


Player one uses keys E, S, D and X to move up, left, right 
and down. 


Player two uses I, J, K and M as player one. 


The memory locations in line 620 are for the 48K Oric the 
32K model uses lines 306 72 and 30687. The 16K model 
uses lines 14288 and 14303. 


1@a REM 
11@ REM EHTRAPMENT 
128 REM 

13a GOTO 6ae 

14@ REM PLAYER OME 
1SG TSskKEyS 

16Q IF T="" THEM 16 
162 IF TSC3"E" AND T 
AWD TH<>°D" THEM 18 
17a KS=TS 

i6@ IF K#="E" THEM Ril=R1i~1 

190 IF K%="s" THEM Bl=Ri+4 

20a IF KR="S" THEM Cl=C1~1 

210 IF KS="C" THEM Cleci+4 

215 REM EDGE GF SCREEN 

220 1F RIPES OR RI<1 OF CLS? OF C1<4 
THEM 240 

290 1F SCRMCCL.RL2=i122 OR SCRMC CL. Ri t= 


{| 
Sie AR Teas) ee 
bh 


123 THEH 248 ELSE 326 
235 REM CRASHED 

e4a FOR J=1 TQ 2a 

254 MUSIC 1.3.6.8 


H 


~~, 
— 


268 PLAY 1.@.1. 508 
278 FLO Clini” 
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WAIT 18 

PLOT (iskils lee 

HEMT 

Petits 

PLOT Ci,Ri.ige 

Ri Trek 

REM PLAYER TW 

T= 

IF Te" " THEM Fe 

IF TS0>"I" AWD Teh e°M" RHO TSe 2" 
D The" RK” THEM 4a 
L_Spax 7 6 

IF L#="I" THEM Re=ke-1 
TRE Ls "Pd? THEM fécctesitich+ | 
IF Use" " THEM Ce=Ce-)] 
4°54 TF Le="K" THehd Getsitit+ | 
444 IF Rer-e2s OR Red] OR Cera" OF Ca<l 
THEM 4544 
$44 TF SCRMC Ce, Re g=lee De SCRA C2. Ra o= 
123 THEM 430 ELSE Sse 
$47 REM CRASHED 
34 FOR Je] TO 2 
46 MUSTO Lo 4. bs 
474 FLAY 1.8.1. 568 
Seta PLOT Cea ke! 
438 WATT ie 
sr PLOT Ce. ke. Les 

S18 HEMT wi 

atl Petit 

iia PLOT Ce. Re. les 
BAC Fe ET Ld Pe kd 
535 REM START 
rl LS 
BML FEM MOVE CURSO 
Ee FOR f=. Ta ee 
ee FR IMT 
BMG MET tM 
Hl PAPER FL Me 4 
B15 REM DEFINE CHARACTERS 
S26 FOR J-47e56 TO 47 ert 
Be READ A 


fames 
i 


MY 


fh O5 0) 0G Go 3 G9 o£) 83 fe 


Yo OO So Uh es 


M Fh Hs M 


rt. , % 

a isi 
eS Ti 

em) 

-_ 


eh es 
Tm 7 


hd 


mi ut 
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t 


-¥ 
is 


7; 0 


tay 


“vr. 


: iy 


i 


AGGUOS & 5 


i 


a; 


Phi foe MOD Tah vb 


SEN WE ME a Ge 


71th HE 
MH Mik & & 


PInKE ol A 
| oe 


DATA S26. 38.63.62. 25.55 


3 


DATA 2a Se BS be. 28,838,808 


REM INITIAL VALLES 
Rise 

ied 

Kea" 3" 

Ras24 


em +, oonng 
(eels r 


"eee 


Ls" 1" 
REM MAIM Loop 
GUSLIB 372 
GUSUB 150 
GOTO 740 


METEOR RUN 


Caught in the middle of a meteor storm are a number of 
helpless aliens who need your help. 


Using keys O and P to dodge the meteors which are 
hurtling towards your spaceship, you must pick up the 
aliens to gain extra points. The memory location in line 
160 is for the 48K Oric. For the 32K version use 30672 
and 30695. The 16K machine will use 14288 and 
14311. 


Lee RET 

116 REM METEG rit 

Lee Ret 

13a Clos 

135 REM Thlikthd OFF CURSO 

4a FPRIMT edbese 1 3 

120 PLOT le.12. "METEOR RLM" 

132 WALT ee 

12S REM DEF THE CHARACTERS 

Lee FR eh PE TO bf PRS 

1? READ RRR oA 

Lea MeeT 

190 DATA 12.38,62,53,.63,31,.36,12 
cMtt DATA ie. 438. 45 Aisa dE GS Lit se 
218 CATA B. 38,635.43, 63,142.18, 53 
2S REM INITIAL VALUES 

So eS 

geil Cei¢ 

Zee WLS 

eed FOR fd] TO 2e 

ets RR DMT 

cen Hea T 1 

ea’ PAPER 8: TMK 7 

eek Reh TMT RMD | coRISS ok Lf 

eee IPF RHO! I o>.9 THEM PLOT BM. ee, biG 
MT vt fod Lf 

wir el PLOT Phd es oe” 

et a or Od | 

cite IF mie Lise IT Sle Las THEM FOOT i. 
Fe, 7s fatzm fet J 


24 
othe) 
et Sd 
a1i8 
ae 


¥: 3 
a i) F 


fo Nes 
v. 
ao 


") 
MM & uF 


MF 


af igi iy 
a 


if 


el 


H 
Mbit o 
i? He i 


Earn aeers 
igh 
Tm i? 


. 
*) 


420 
AG 
a 
460 
Aa 


at 
* ¢, 


chs kA 
$30 
ma eal be 
SoZ 
a 
i ak ea] 


iL 


red sat to 


ot 


i 
Ve 
iat 
Le 


wt Li 


ow 


CAH 


+i 


wm 9 LED 
3 si My i Me 


io ee 7 
ers 


tay 


Hel 


~r. 


fs, he I 
Feb bs 
Freie 


IF Rees THEM R=25 

PLOT tee 

PRIMT 

seh Cos Fel 

IF #ieled THEM Se 

REM ALTE 

MUSsIl 1.3.5.8 

FLA Ls. 1. see 

1 [ss Sob KA 

BLT S/H 

ie fA POLLS Liat 

IF SCRMOC. Ra eoe THe 438 
REM LOOK AT KE TRORRG 

a: Ed ea 

TF RS="0" AMD Ded THeh Oli 
PY’ ORM C38 THEN mel+ 1 


Tr piss! 

Poul Late =" 
MIT el 

REP RASHEED 


PAPER 4 

EXPLODE 

WAIT Lee 

PAPER 

Pile fete Te : STEF ~4{ 

MUSIC 1.2.14, 

PLAY 10.5, 100 

WAIT 25 

MEM T fl 

PLY fA, ay ay a 

PLOT Le. le."G AME en oe oe 
Fhe TPT 

IF S0>HS THEM ee 

PRIMT "HIGH SORE: "ahs 

PRINT 

PRINT UCP CUR! SHORE: "4 Sih 

ke LPT 

LHPUT URL RIGA TM" Go 
TP LER Te sb. doe” TH 
vo {sae Bl 

eS 


ie 
Ree 
iy 
13 
23 


658 GOTO cee 

S56 PRIMT CHPsBo 1? 3 
690 PAPER 7: IHK & 
fee EMD 
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BOMBER 


You may have played a version of this game before in an 
arcade, but this time you only have one life! 


As the pilot of a plane you are faced with a desperate fuel 
shortage. You are circling down towards a city which has 
been cleared for your crash. Now you have one last chance. 
Can you bomb away the buildings and clear a runway 
before it's too late? Release your bombs using the space 
bar. Be quick and good luck. 


The memory locations in line 810 are for the 48K Oric If 
you have a 32K version use lines 30672 and 30703. The 
16K model uses lines 14288 and 14319. 


Lee REM 

Li REM BOMBER 

Lee REM 

1S@ GOTO skit 

166 REM MOVE FLAKE 
196 PLOT Px.PY: Se 

2H PREP R+DR 

eS REM SCORER EGGERT 
210 IF Fa?l THEM 230 
22a PCS=CHRS. lee 2 

238 OR= 1 

240 PsP + 1 3 
245 REM SCREEN ECGET 
25@ IF PRY Ss? THEMeESe 
264 POS" CHS. Ls 2 

ara DR=~ 1 

258 PY=PFY' +1 

290 IF SCRMCFRJPY?=le4 THEW Lit 
254 PLOT Pe. Pi’. PS 
S086 TF PRESS AMD FPYsie THEM lee 
sak RE TLR 

26H REM CROP BOMB 


370 IF B=@ THEM 56Q 
388 PLOT BH. BY." 
390 BR=EK+60 
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C0 Bisby +e 
= REM EDGE OF SCREEN 
$14 IF BYoss Gk Bace De Exess THEM 314 


Goh TF SCRMI BH Bod bled THEM Sse 

$e REM BUILDING WIT 

4:38 REPEAT 

440 FHRFER 1 

$350 ERPLODE : WAIT 3 

$60 PLOT Be. By. les 

4° Esky 1 

$50 FARPER 7 

$3h PLOT Bea blre da.” 

Boh Smee Li 

SMA UTIL SRM! Ba bey os ede 

LR Ess 

ek Eas 

Sse bei sskel 

“Gh GOTO Sse 

S26 PLOT Ba.,6'r, ” 

mate FES Tbe hd 

PRIA RET LE AT RET RAReD 

je Tr KEY Be OF Bled Cre B=] THEM 
7 RAK 

BS REM DROP Bites 

Reh bee J 

Base Beer eR bse ys Ble 

ebet ELE tL 

See MUSTO Los. 3.8 

BSt PLAY Jo i. ee 

Yee RE TURM 

Plie PEST FP Tt T aie EtG 
Fi SBS Tee St | 


etl [ts Sahay ae oP ae 
Se FLGT 12.8. is 
36 SS TRS BL +e” 


— 
fyi ti tly 


. 
+ 
wT 
at 


MS=k TAT. SB LEMS Sao | 2 

r PL i) 3 ar J i ‘ te] S5 

Pees Ti deh 

CLS 

POR wid TO SF PRINT WERT J 


SG ca 
mm @ 


7 a] my A} -) ah 


7 
mM 
A} 


& 


S05 
S18 
Sec 
A308 


meh ca 
oy Oh y 
fon 


4e, 
ay tet 
rt sy 
eo met 


35) 
~“.. 


$ 


+i 
m 


TSO SM 


mm UG 


Ok 
i? 


Rome 
isi 
mt 


So 
ot 
waeh i 
Pal 
ae 
Para 
a fa td 

ta 


fi AG 


vr. 
ia 


: 


iF 


v3 
oe 
eS 


, 
t 


iT 
> 


M™ MG My Mi ie 4 We pc 
MM MT, bi: 


‘TC; 
“Lap Oho © 40 62 APG Ao 


a ee ee 


Le 
wy 


M > f 


Pert Rt RE Rt Ree RE RS ee Re Re Be OLS LG 
iyi 


aoa 


DEF IME CHARACTERS 
FOR Je47a56 TO 47087 
READ APPCKE JR 

MEXT J 


“ome 


DATA @. 8. 40.62.65 ,5 0.6.8.8, 8,354.6 
kai. fA 
DATA 63. 45,63,. 435,635.45 
2eleteu els tesue 
PRIMT CHpebe 1? > 
REM BUILG City 

POR Jes TO 36 
FOR KIT! Reo! | oe eee TC 
PLOT Jakis Late 
HEAT K 
HEMT oJ 
REM IMITIAL FPOSI TOMS 
PRS Ps] ROSH Le 
Diktoe Jo Slee 

REM FRIMT HEAD IHG 
Sas Tee So 
$=" SCORE : 
PLOT Sy Gt. Pe 
SB ms 7 fete ESL 
MS="BCMBS : "+R TIGHTS. Se. EMC Se To 
PLOT ht. By fe 

REM MATH WOOF 

BOSWIE Loe 

BOSUB Se 

BOSE See 

GOS FL 

WAIT 3 

RITE Leki 

REM CRASHED 

PAPER 

EARLODE 

PAPER + 

EMP LODE 

PLOT deo de. YOU CRASHED | F 

BOT 1272 

RES LAMDED 


afte 4Ote, at Pre, , em, 
663.63. 42.2) 


“oo 


cay 


+R IGHT SC SH, LEM Sed 9 


87 


PLOT 9,142. °A SUCCESSFUL LAHDIHG I" 


PRIMT CHRO 17> 
IF SCDHS THEM HS=SC 

PRIHT 

PRIHT “HIGH SCORE: °sHS 

PRINT 

PRINT: PRINT "YOUR SCORE: "3c 


4 PRINT 


IMRPuUT “PLAY AGA" 3 os 

IF LEFTS¢G.10="M" THEN 1350 
pot a1 a 

RES TORE 

BOT sae 

Et 


KALEIDOSCOPE 


There are not many micro computers which can show off 
their colour capabilities in under 20 lines — but Oric can. 
Against a varying background Kaleidoscope will plot an 
ever Changing series of colour blocks. 


Although quite short this program will provide a fas- 
cinatingly hypnotic display of the colour range of the 
Oric’s low resolution screen. 


1a@ REM 

185 REM KALEIDOSCOPE 

11@ REM 

128 CLS 

125 PRINT CHRSC 17) 

13@ RI=INTC RMD 1 aaS 3 

143 R2=INTCRMDG 1 RBS +4 
15@ PLOT RL Re. 254 

168 RS=INTCRMDC 1 9x36 3 

178 R4S INTC RDS 1 k26 

180 RS=INTCRNDC 1 Ok? 244 

19@ PLOT R3.R4,R5 

195 IF RNDCL?>. 01 THEN La 
200 RGSINTCRNDG 1 #6 04+] 

219 INK R6 

220 R7=INTCORMDS 1 #6 2+] 

230 PAPER R? 

248 GOTO 134 
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ROAD RUNNER 


The brakes on your car have failed and you are weaving 
down a rubble strewn road. Your objective is to stay on the 
road, avoid the rubble, and run up the highest mileage you 
can. We have given you achance to notch upa few miles by 
letting you have three lives. You will need to be able to steer 
the car so we have also given you two keys which are 
defined at the beginning of the game. 


Leite Re 4 

LAS REM ROR RUMMEr 

Lie Re 

se a Oe 

114 PR DMT 

Lie ITMPUT "WHICH key FOR LEFT’ ILS 
18 PRIWT 

2M oTHRFUT "WHICH REY FOR RDGHT ? 3 be 
2 RLS 

meer? FLOT ROD 

Fite wi] Tm fel 

PLT eh Ks i ms 

MERMT wu 

Pik! Jeet TO ws 
PLUT .JvKe leo 
HEAT 

Biss TT ere LoS o+ bf 

PLOT RoaukK. les 

2a RETR 

cas REM DEFINE CHARACTERS 

SLA FOF Jis4Po5e To are d 

cea READ A 

23G@ POKE J.F 

2a Hee 

230 DATA 12.63.63. 34,635.63, 12.8 
eve DATA 83.63, 63,63, 53,63, 63, 63 
2509 REM INITIAL VALUES 

“SR FRPER Fs TMK & 


3 Fes 
on 

a i 
be 
3 

-_ 
ii 
T:3 
— 
am 


GS Sh Gi 


= 


2. re 


(wit Wi ap AB oF 


_—- 

r 

ye, 
fe fi 


ii fF 


90 


Xi OE 


mf 


Mi 0303 05 09 GD Po he fh Ph 


LES Bo GIR TH oO 


VULVA DO BH As 


it; 
im 


— 
~ 


zi m 


=. 
iz 


$2 $0 G3 3 3 G3 9 3 
> 4D 
AM LA M 


> 
pt ps 


el 
Saad 
ea 
“hh 
Saal 
ST 
a 
hie 
$3 
4%) 
ba sal 
a 
ial ol 
Rystkel 
alk 14) 


kel 


Fe = 1 
Rete | 
r= 1s 
Ree 


Pk Kes] TO Se 

Guise {L4e 

MET OK. 

bes J] 

Lif seis 

REM SCROLL 

Pree) MRSC L133 

Rell LOGE AT REY SOFRD 
Kak By 

IF RSL THEM Ct 
IF Kee THEM O=h+] 
IF SCRMC MR oeae THEM be 
REP TOLL Ds Tor 

EARP LODE 

re] 

TF Liveta THER Sei 

REM SAFE FOSITIOM 

TF hs THEM ell+ | 
IF KS=R5 THe Cale] 
PLOT G.R,.1¢2 

CUS Lie Li 
PlsRL+ TAT. RMD! 1 ookts bd 
ed a i 

TF Rife Oe keess THEM +3 
re fs ast og Ls fe 

SOT web 

PET Y ER PET Tee 

File fel To eo 

Pr LMT 

Meet i 

PRIWMT "TOTAL MILEAGE = "GSC 
PRIMT CHPsC 1% 2 

Eb 
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TOWERS OF HANOI 


Here is an opportunity to prove you know your numbers. 
Towers of Hanoi is a simulation of the well known puzzle 
where you have to move a column of numbers from the left 
hand tower (No. 1) to the right hand tower (No. 3), in as 
few moves as possible. 


Seems simple, but remember that you can't place a larger 
number on top of a smaller number. Oric will ask you 
which number you wish to move and to where. Get it right 
and congratulations are in order — get it wrong and you will 
get that awful message “you can't do that”. 


Leica RETA 
1@e2 REM TOWERS OF HAMOT 

124% RET 

1@6 CLS: FPRIMT 

Leis rds= 4 

149 DIM Acs. 11> 

11@ TMPUT “HUMBER GF LEVELS <1 TO dao" 
IMD 

112 IF HO< 1 OR WOSLe THEM Lie 

114 FOR T=li-Ho> To le 

Lié ACLs Tol 

118 HEXT I 

119 FOR D=1 TO Se: PRIM Heat DB 

128 REM FRINT TOWERS 

tee FOR J=1 TO ie 

{24 FOR fd) TO 


if o%: 


126 IF Act, 5-8 THEM Le 

128 PLOT MES. J+ 3. STR. ACM oD 

138 WEXT [4 

{ae PRIWT 

134 MeeT 

136 FOR T=li-~ ~ND Th Je 

138 IF Aca. Loe? THEM 146 

148 WEXT I 

42 PRINT 

144 PRIWT "CONGRATULATIONS! COMPLETED 


IN ONLY "Gls" MOVES" - END 
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146 
146 
{Se 
eee 
134 
156 
{Ss 
Leses 
162 
1 4 
Lie 
1 fates 
17a 


os 
“jot 
Po 


2 


~j ~~ 


eR GSES Ses Se 3 
mo 


UG 0G 4b 
= fh} i 


Fe [tT 

Mra rtie f 

TWIT PVE FROM WADIA TOME Gk 
Pre IMT 

REM WALIDATE IMPiuT 

IF Keil OR KSS THe i Se 
FOr T=] TO 12 

IF ACK, 1] oe THEM les 
THA Ko 3 

ASK. I oe 

SOTO Tre 

HEMT I 

GOT tae 

INPUT "TO WHERE" aK 

Prt TMT 

REM VWALIOATE INMEWT 

IF Kel OR KSS THEM Le 
rok l=, To de 

IF ACK Toe THERM i Se 
IF ACK. DOS TH THEM FRIMT “tll CAMS T 
THAT!" GOTO lee 
ACK, Ti 9=TH 

GOTO Lee 

HEMT I 

Ae kK. Leos TH 


BOT lee 
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PROGRAMS 
TO MAKE YOU THINK 


The following selection of programs is 
designed to show off your talents. 
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GUESS THE NUMBER 


Here is a program to give the younger members of the 
family a chance to shine. 


Oric will choose a number between one and a hundred. 
The player will then try and guess the number chosen. If, 
and it's fairly likely, the first guess is wrong Oric will say 
“too high” or “too low”. 


Once the player has got the high and low range they ought 
to be able to ‘squeeze’ both ends until they reach the 
number. Oric will then tell them how many guesses they 
needed. Kind parents can, of course, begin the program by 
setting the upper number at twenty. 


laa REM 
118 REM GUESS THE MuMBeR 

i2a REM 

138 CLS 

140 PRINT 

138 PRINT "HELI! PRAT 

180 PRINT “THIS IS A NUMBER GUESSIMG 6G 
AME. Tor" 

178 PRINT "SOING TO THINK OF © MUMmER 
BE TWEEN” 

(8G PRINT "1 AWD Lag." PRIHT 


a 


LS PRIAT OO TRY Aid GUESS WHAT IT ff 


WALT SR 

A PRINT 

PRINT "THEME IHG, eee” 

PRLMT 

AWAIT Sa 

240 HE THT? RMDS | ORE +4 

2465 PRINT 

250 INPUT "MHAT S YOUR GUESE ao 

2352 TReTR+ 1 

268 1F GoM THEM PRINT “TOO HIGH! Tey & 


Loin HUMBER. GoTo fee 


oo 
~? *. 
— 


We ee weteaeee © OF 
r. -- 
2 ? -~ - 


f°: Fe mee ol Set 
ee * . 


st", I, 
af a3 


. 
8 é 


32 
Fa % + 7 
faim i 


$43 $4 
* 
F . 
poten 
-—_ 


Te". 
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IF GAbH THEM PRIMT ° TOO Loi! TRY & 


GHER HUMBER. "GOTO 246 


PRIMT USORRECT IOC: RR IMT 
PRIHT "YOU GUESSED IN “i TRi TRIES. 


eon PRIMT 
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TREG 
GOTO 218 


P. 
- 


LETTER 


Alright, you may know how many letters there are in the 
alphabet (26 actually) but could you tell the difference, in 
numbers, between D and R? 


Oric will print two letters on the screen. Press the key 
corresponding to the difference between the letters and 
see what happens. The loop between 200 and 250 givesa 
time limit with accompanying sound effects. The time limit 
can be changed via the wait statement in line 232. 


Lea RES 

11@ REM LETTER 

Lek RET 

138 CLS 

140 PRINT: PRIWT 

145 FEM SELECT LETTERS 

LEIA Tc RHE 1 RSE +S 

= LTT RMD. | Ke b+ 

DeABSe ML 

IF G39 THEM 138 

PRIWT CHR Log” "OARS fd 

POR Jet2 TO t STEF ~1 

MUSIC 1.3. .8 

1 RPLAY 1. 1, Bee 

een REM LOOK AT KEYBOARD 

2S KBE YB 

eae WAIT Se 

240 TF VALCK$o=> THEM Sse 

oa HEAT WI 

26@ FRIWT 

sie MUSIC 1.1.1.8 

264 PLAY is. toe, loee 

278 FRIWNT "DIFFERENCE = "Gt 
4 WALT Lee 

SOTO 144 

PRINT "RORRERT |” 

GOTO 2a 


Oo 


NM MY 


PG Re eee 
we Ho Oo +1 A 


i? #3 


f 
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me TM i OF 
Sy 


mM? i 


6) G3 ff 
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CURRENCY CONVERTER 


If you are planning a holiday trip or, more importantly, a 
business visit and wonder how far your money is going to 
go — here is the answer. 


You type in the present rate from your newspaper and you 
can also predict a change in the rate and see what will 
happen to your hard earned pennies. 


This example shows dollars and pounds but, of course, any 
currency can be used. 


ay oo ol 

1A REM CURRENCY CONVERTER 

26 REM 

1 a en 

44 PRIAT ORE TAT 

i LTHELUT CURRENT BATE $FPOUMiO" 5 ke 
Sa PR IAT 

Ta PRIHWT "1. a A oa 

Sa PRIMT "2. FOUMDs TO a” 

Set be Td 7 

aa THPLUT "1 CR eB’ an 

{A IF Cfo) AWD Oe be THEN eh 

228 PRIGT 

238 0M © GOTO 240, 36 
See THMRUT 

mr RR LRT DMT Cee be RD ted 1 ee! 
fee FR TMT 

are GOTO 24k 

eae TRL oF 

S38 FRIMT LMT Pa DET OL 
ah Fe LMT 

ak GOTO cee 


H 
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ARITHMETIC 


An arithmetic test for all ages. 


This program will generate an endless sequence of addition 
and subtraction sums, testing for the correct answer in 
each case. 


To stop the program (all good things must come to an end!) 
press the CTRL and C keys simultaneously. 


Lee Pe t4 

{18 REM ARITHMETIC 

leg RET 

1k (ios 

{48 FOR J=1 TO ee 

LS FPRIMT 

jee Mee 

178 PLOT 12.8. "RRITHMETIC" 
is TAPUT UMAR TM Mitesh: Mb 
194 CLs 

2H PRIM Pe LMT 

2 ei 

ek? REM PICK bilitdeste bes 

218 RIZINT: RHDC 1 OAM o+ 1 

eek Re=INTs ROS 1 RM +1 

feo REM WO MEGATIVE HUMBER 
238 IF RéeRl THEM 22g 

248 RS"IHTO RMD! 1 oke ot] 

245 REM PRINT Sim 


254 PRINT "WHAT IS "iki: 

260 IF R321 THEM PRINT "MINIS "4 

264 IF Ra4el THEN PRINT "PLUS °; 
3 


PRINT RE 

REM THPIT ANSWER 
INFUT AH 

PRINT 

IF RSe1 THEN AS=Ri-Rz 
34 IF RG<31 THEN AS=Ri+k2 

30@ IF ARS SAS THEM 314 

382 MUSIC 1.4.7.8 
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me MM MO FD 
Py Oc b 


Pint GF O23 i 


342 
a1 
313 


Sek 


t 


PLAY Lotto ls Sie 

PRINT UimirerRm iT t" 

GOTO ei 

helt 

MUSIm l.e2.3.8 

PLAY 1s. 1. 26a 

REM TOG MAM Y TRIES 

le ChMe4 THEM FRIHT "THe CORRECT AM 


WER IS "GAS: GOTO 28e 


Ml 


PRINT © TRY RGAIH!" 


S48 GOTO Sisk 
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~MULTIPLICATION TABLES 


Here's a simple program to test your knowledge of multi- 
plication. The range of numbers generated is controlled by 
an input statement at the beginning, which makes this 
program suitable for a range of ages and abilities. (Try 
calculating 397 x 422 in your head!) 


1a@ RET 

11@ REM MULTIPLICATION TRELES 
Lek REM 

13@ CLS 

148 FRIMT 

Lee TMP Pee Tid MPR 3 fete 
168 MSHI RDC 1 RM od 

17a Me=INTs RHDC 1 DRM O41 

175 REM AMSWER COUNT = @ 

168 CT =e 

136 PRINT 

192 PRINT "WHAT DS "GML TIMES "athe; 
20@ IMFPUT Ab 

21@ TF AWE LEME THEN 2ée@ 

21S REM WROMG AMSWER 

224 CT=OT+1 

ae IF TIS THEM 24a 

23e FPRIWT 

234 PRIHMT M10" "GHea= "“GHIikKMS 
236 GOTO iéea 

2th PRIWT 

242 PRINT "TRY AGAIN!” 

Soh PR LAT 

2s GOT 2a 

255 FEM RIGHT ANSWER 

268 FRIWT 

262 PRIWMT "CORRECT!" 

264 PRIHT 

ere TMRPLT "RGR IR" a eb 

260 TF LEFTS< Gs. 1. 0="h" THEM sae 
94 GOTO 162 

Ma EMD 
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SPELLING TEST 


Spelling Test will print out a list of three different spellings 
of a word, only one of which is correct. You will then be 
asked to enter the correct spelling. If your answer is correct 
a new word is given. 


The list of words in the data statements can be varied to suit 
all ages. A modification would be to make none of the 
spellings correct! 


{aw FET 

11@ REM SFELLIMG TEST 
12k Ret 

CLs 

PAPER 7: IMK 

DTtl Wiese 2, cs 
PRIWT CHR! 17 > 
PLOT les le. "SPELLING TEST? 
WALT 2a 

REM READ It DATA 
FOR Je, TO 2e 

FOR Ke] TO cS 

REAL biteae wl. Ko 

MEAT Ko ol 

PRINT (Hebe 17 3 

REM SELECT WORD 
RLS ThMTC RMD! 1 aks bed 


wT oP. fo 
tt fei qe U3 
Ty Ww TH 


PPO Wa 


FR Hb 
VM My 


J iG he 


H 
: iF 


OY 8 a ee el ee ee Eo 
rz 


7:1 iB 


awk Reel TO RMD 1 ok a+ i 
eit IF Rilske THEM 2S 
ar RS=ITAT. RMD 1 ok a+ 1 


eo TF Rath] OR RSeke THEM 2k 
290 ROS TAMTC RMDe 1 ok o+ 41 

S40 TF ROS=RWO THEM 2S 

S18 RWD=kD 

se CLS: PRINT FRIWT 

329 REM PRINT CHOICE 


238 PRIHT "1. "GWDSC RADU RIO 
S48 PRIWT "2. WD. RAD ee o 


250 PRINT "3. "5 WDSC RUD. RS 


36 
3ra 


~~ MH LO O ~ 
mT 


3 


ob 


“™, oo 


He 


a Ppp hh & G1 tI G) 
aL 
ou, 
i! 


fs 
pe 
iS} 


4 
462 
ml 

47° 
480 
ef tba 
ball ld 
rat Lb 
ened 
atte 
eb EI 
ral nd Ea 


MENT 


pall 


Pe 
i 


Oo GA ca fT on 
™ 


ee | Fa 


7, <= 


sw yy 
1% a 


iT; 
a 3 fie ee Ms tO or iT) ~ 


77 


iF: 
i 
** 


o- 


Ce 


af. 
con 


PRINT PRINT 
PRINT WHAT IS THE CORRECT SPELIIMG 


Pre TMT 


IMPLUT Abs 


A PRINT 


LF ANS=HDS< RUD. 12 THEM 430 


PRINT 


BOT 


Pre THT 


WALT 
DATA 
DATA 


DATA 
DATA 
DATA 
DATA 
DATA 
DAT 
DAT 
DATR 
OATA 


DATA 
DATA 


DATA 
CATA 
DATA 
DATA 
DATA 
CATA 
DATA 


DOr 


"TRY : PRINT 
389 

"CORRECT |" 

18a:GOTO 244 
CARROT. CAROT. CARCTT 
TELEVISION, TELIVISION. TELEVIS 


AGRIN!" 


COMPUTER. COMPUTOR . COMPLI AR: 
WEHICLE. VEICLE. VEERCLE 
RAMO. RAMEN . RAM DRT 
FEBRUARY. FEBLAR YY SFE BURAR Y 
VELLOMW. CELIO. SELLE 
SEMTENCE s SEMTAMCE. SEMTEMSE 
SUCCESS, SURESS. SUDRES 
TORR RC TORR TOPO 

EM TROMMEMT . EMMY TROMEMT . EM 1 RR 


BEAUTIFUL. BUEART IFUL. BERUT LE UL 
IMROSS IBLE. IMPOST BLE. THPOSS Te 


ILLEGIBLE. ILECIBLE. ILLEGABILE 
MEM o ATM EMME 
DRCHESTRA.ORKESTRA, CRECESTRA 
INTRIGUE. INTRIGE. THTREARGUE 
PHELIMAT Tl MEMMAT OD. PMMA T TC 
WECHE SOR Ys WEMSOAY » MEMDSoA'y 
RPPLICATION, APLICAT ION. APPLIC 
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METRIC CONVERTER 


Are you still having arguments in your house about the 
difference between chains, poles and metres and hectares? 
Here at last is a simple to use conversion program so that 
everyone in the family can be right. 


Further routines can be added to cover different conversions 
for volumes etc. 
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x, 
ee 
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REN 
REM METRIC COMVERTER 

REM 

CLS 

PRINT PRINT 

PRINT "1. KILOGRAMS To POWHDS" 
PRINT "2. METRES TO FEET AND TMCHE 


PR IMT 

INPUT" INPUT 1 OR €- TO SELECT SKY 
IF KY“ >] RHO Ke be THEM Lik 

Re KY GOTO sli. sai 
PRIMTORPR IAT INPUT fic TRI" PR UT 
IHFEUT KG 

TF Kishk THEM 4nk 

eRe SEE Le 

le THT c2 ole THEM fae 

Pos TMT. Oe Leo 

a1 do 

PRAM PUP ESS Ties UZS” SPR LAT 
f(s iI 

eae 

IT eck 

PRINT PRIM T THe Pe Teo eR LMT 
LMPLIT TAT 

Le taT=R THieh an 

LM=tiT #9. 37 

IF INTC IMocle THeb 332 

PT= THT. THe le a 

LM [Mr TET 


ere LT 
i> [ai 
J basse 
Pst T 
Edi 


ETI FT 


KI 


TMG IMS  PRIKT 
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CAPITALS 


This program will ask you for the capital of a country. Enter 
the right answer, spelt correctly, and a further question will 
be asked. If an incorrect answer is given, you will have three 
tries to get it right, after which the answer will be printed. 


The list of countries and capitals can be extended by adding 
extra data statements after line 540 and increasing the 
numbers in lines 140, 150 and 190 to match the total 
number of countries. 


This program can easily be altered to ask for information on 
counties or American state capitals etc. It can also be adapted 
to place people at places or dates in time, or to show the 
inventors or painters of a period or place. 


18a REM 
110 REM CAPITALS 

Lee RETA 

124 CLS 

140 CIM Cee 2009, Pe 2a) 

ISG FOR J=1 TO 2 

160 READ CBC 19, PHC ID 

78 HEXT J 

Chea 

RNS INTC RMON 1 Yk2 +1 

a IF RM=R THEN 192 

1@ Ret 

20 PRINT 

20 PRINT "WHAT IS THE CAPITAL OF "s Cs 
Ro PRINT 

240 [MPT ANS: PRINT 

250 1F ANS=PSCR> THEN PRINT “CORRECT!” 
GOTO 180 

260 CH=Ch+1 

27Q IF CHe4 THEM 31a 

280 PRINT "TRY AGAIN!" 

290 PRINT 

ana GOTO 24a 

S18 PRINT 


—_ 


TOA? Of mi 
MM? ® MM Mi 
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ae | 
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220 PRINT 
"PRC RIG,” 


PRIMT 


“a b 


ee | 
oy 


iti 
Fe ae eS 


fo3 23 i33 £3 
ay 
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Se or 
oa 
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Fa] 
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oat 
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~—: 
PS ee 
Lat 


tl 


“iin CA LH 


GIT 
. 
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SOT 
DATA 
DATA 
DATA 
DATA 
DATR 
CATR 
DATA 
DATA 
DATA 
DFTA 
DATA 
DATA 
DATA 
DATA 
CATR 
DRT A 
CATA 
DATR 
DATA 
DATA 


“THE CAPITAL OF: "iCS¢Ro;”" IS 


Link 

AP GHA LS Ta RAB 
ARGEMT IMA. BUEMOS 
BELG DUM. BRUSSELS 
BRASIL RIO DE WANE TRO 
CAMADA » OT TWA 
CUBA. HAY AMA 
DEMMARE » COPE MHAGE MM 
EGYRT. CATR 
ENGLAND » LOMO 
FRAME. PAR LS 

GREECE. ATHEMS 

ITAL. ROME 

JARAR ICA. EI MGS Tord 
MIGER TAL LAGOS 
HORWAY . OSLO 

Pte Thilo LD Sei 

RUSS IA. MOosCOud 
SCOTLAMG. ED TMBLIRGH 
SPAT. MADRID 

Lh. S.A. WASH IM Tor 


MT rics 
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GRAPH IT 


One of the horrors in business and education is being asked 
to plot a graph. 


At this time it is unlikely that you can smuggle your Oric intoa 
classroom, or some boardrooms, but you can practise 
plotting graphs with this easy to use program. 


You, aS user, can insert the function in line 130 of the 

program. The *40 in this example is a scaling factor which 

can be found either by calculating a few likely values, or by 

experiment. Try substituting the following in line 130 
DEF FNA(X)=COS(X)*40 


Lee REM 

116 REM GRAPH IT 

128 RET 

125 REM INSERT FUHCTION BELOW 
138 DEF FHA K oeS IMS eRe 

148 HIRES 

145 REM CRAW AKES 

120 DRAM B.S. ft 

160 CURSET 8,100, ¢4 

174 DERM 2Sea. et 

1735 REM PLOT FUHoTIOM 

1S FOR w= TO 11 STEF 4.1 
128 A=—F MAS SM 0+ 1 ee 

Seu TF Aries Oe AS THEM 23e 
e2Q@ CURSET H*X20,A.1 

eal HEAT & 
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REPORTS 


Ever been stuck for an impressive sounding phrase for 
incorporation into reports or speeches? This program is the 
answer! Readers might like to insert their own words into the 
data statements in lines 270 — 330. 


A similar structure to that of this program is used in many of 
the “poetry” generating programs around. Just insert your 
own short phrases instead of the single words. 


ct a ol 
18 REM REPORTS 
2 REM 
iam CLs 
144 REM READ IM DATA 
13a FOR w=] TO * 
168 READ RPeBe oo. Bs do at io 
17@ HeEsST oJ 
188 PRINT PRIMT 
138 THPUT "HG MAM FRR SES RR 
she PRIA PRINT 
“410 REM PRINT FH FHEASES 
acm FOR Jed TO PH 
ete PRINT Asso THT RMDS | bere dT oa OG 
1 PRINT B80 TMT RHO | bee aAL oa OG 
a PRINT (so DeTt RreDe | bake Lo 
oF PRIMT FR IMT 
BM MEST 
oF DATA OM—GOTMG. AUMAATS TOG. eM TROMME 


sei DATA MOGULAR. INTEGRATED, SITUAT IO 
a DATA CIFFERENHTIATED. MOVIVAT TOMA 
SE LAN clei’ _ 
ke DATA MINORITY. CREATIVE. GAPER TNE 
318 DATA OP EM-EMCED. VERTICAL . TECH Tue 


328 DATA THMOIVIDUAL EVALUAT TV. RE SOUR 


a 
338 DATA HOMOGENEOUS. OREIER TI view eA 
y" 
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This is a cheque book balancer to help you to keep track of 
your account. To use, enter your last known balance, 
followed by a list of cheques written out and payments in. 
Each list should be ended with a zero. The computer will 


CHEQUE BOOK 


prompt you for each list. 


Line 270 is of interest — it uses the escape character 
CHR$ (27) followed by a control character “L” in front of 
the print string to flash the word “overdrawn” on and off. 


Although presented for a simple cheque account, the 
program could easily be modified to cover many household 


accounting requirements. 


mH 


fe > a 


TS 03 om; ff 


4. 03 0&3 2) O63 G3 0 


RET 

REM CHEGUE BOOK 

RET 

CLS 

Phe Lh T 

THMFUT "HOW MANY ROCOUMT SS” a A 
Pre LMT 

Fle Let To AC 

PRINT 

FRIMT RCQQUNT WO. ak 


& PRIWT 


IHPUT "COUR LAST SRLAWE BL 
Fret LMT 

PRIWT "CHEQUES SIMCE” 
Fe LMT 

LMFUT GH 

IF CH=@ THEM 218 

BL Bil Oe 

BOT Lr 

PP THT 

PRIHT “PAYMENTS Tre" 
Pret Dt T 

LMFT FY 

IF F'vs@ THEM see 

BL = BL +P 


2a’ GOTO 22k 

26a PRIMT 

eee FRIWHT "YOUR CURRKENMT BALANCE ITS "Ge 
Li 

2° IF BL<a& THEN PRIWT CHRO Sr os CU LOVER 
DRA ” 

2h FPRIMT: FR IMT 

282 TB=TB+BL 

2o4 BL= 

2565 HEXT 

2so PRIHT "TOTAL BALANCES = "5 Te 

29a PRINT 

Seika E> 
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PROGRAMS 
FOR BUDDING PROGRAMMERS 


This last selection of programs Is designed 
to help those readers who want to stretch 
their Oric — and themselves. 
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MACHINE CODE MONITOR 


This program is for readers who are ready for advanced 
programming, and who want to increase the speed of 
execution on their Oric. Using this program you can input 
machine code directly into Oric’s memory, in either 
decimal or hexadecimal. You will find in this book a 
program to help you with binary/decimal conversion. 


Even if you are experienced it is always worthwhile 
remembering to make sure your starting point precedes a 
vacant part of your machine's memory -— and is available on 
your model. After all, there is no point in trying to put 
several K of changes into your machine if it's too small. To 
end your input type “’S”. 


Lea REM 
L1@ REM MACHINE CODE MoHITOR 
128 REM 

iS@ INPUT "HEX OR DECIMAL IMPiIT" : 0 
140 1F LEPTS0OS. 1 2="0" THEM 260 
i5@ 1HPUT "START LOCRTICM" 3ST 
16a GOTO 186 

17a ST=ST+1 

188 PRINT ST; 

198 INPUT Cbs 

20@ IF COS="S" THEN ssa 

218 COS=RIGHTS¢ Cos. 2) 

S28 CDB=" 8" +00 

238 C=VALS Ce 9 

248 POKE ST.C 

250 GOTO 178 

268 INPUT "START LOCATION® s 87 
278 GOTO e508 

She STaST+ 1 

eo PRINT ST; 

aa TMPUT Cts 

S18 IF CO®="S" THEN 35a 
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Se De VAL Doe > 
330 POKE ST. 
S48 GOTO 2a 
SoH EMD 
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MEMORY PEEK 


This, for the budding programmers amongst you, is a 
shortcut to understanding the operation of the ROM part 
of your machine’s memory. The display of the memory 
content is in both decimal and hexadecimal. 


Along with the preceding machine code monitor program 
this ‘peek’ will help you form a powerful machine code aid. 


i@@ Ref 

L118 REM MEMORY PEEK 

RET 

CLS 

PRINT: FRIMWT 

IMFUT "START RODRESS” a sT 
FR LMT 

IMPUT "EMO ADDRESS" : Eb 
CLS 

For J=5T TO EN STEF 2a 
Pht LT 

PRIMT “ADDRESS Pics DECTIM 


MMMM M FO 2 > 


PRINT 

FOR Ke To 428 

PRINT Ki” " HEX PEERS Ko oG” 
" ; PEEKS K > 

NEXT EK. 

GET Ax 

CLS 

NEXT 


PPD hee ee 
GMT WO Ge Na ae 3 MG 


Ta fa fh 
m 


fo 
cS 


Qos 


PG he PO fo 
7 1 O wh 
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BINARY TO DECIMAL 
CONVERTER 


This program will convert a sequence of binary digits (O's 
and 1's) into a decimal number. The length of the binary 
number is limited only by the maximum length of the input 
statement on your Oric! 


Lae 
118 
126 
138 
142 
138 
s A 
178 
168 
185 
192 
ue 
ee 
238 
a4 
258 
hol 
are 
2k 
29t 
388 
318 
ae 
325 
‘3 336 
a) 


s 


t 
i 


Fe) 
+ 
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REM 

REM BINARY TO DECIMAL CUOMVERS LOM 
RES 

CLS 

PR IMT 

PRIHT "INFUT SOUR BIMAR’ MUMBERS A 
STRIMG OF 1°S AMD @’s” 

PRIMT: PRINT "EG 1@m@lia” 

PRINT: PRINT "INPUT & TO STOR” 
PRINT 


REM fATH LOR 

INPUT "BIHAR "i Bs 
IF 6S="5" THEN 348 
b= jf 

Dis 

FOF Jie1 TO LEM Bi 2 
AS="1OS( BS, LEMC BS om +1, 19 
IF AS=°R" THEM 25g 
OC=Dl+hH 

kad BF Sed 

MEAT 

REM PRIWMT DECIMAL 
PRIMT "DECTMAL =" 300 
PRINT 

BOT 288 

EMD 


CHARACTER DEFINITION 


This program will allow you to redefine any of the character 
set of your Oric. Input the character required followed by 
the new definition as eight rows of six binary digits. If you 
have a number of characters to do, it’s a good idea to 
redefine zero as a blank space (enter 8 rows of 6 zeros) and 
one as a solid block (enter 8 rows of 6 ones). This will 
enable you to design each character in magnified form as 
you enter it. 


The memory location in line 190 refers to the 48K Oric, for 
the 32K version, use 29696. For the 16K machine use 
136 tz. 


1@@ REM 

11@ REM CHARACTER GCEFIMITIOM 

l2zo REM 

138 CLS: PRINT 

148 THPUT "WHICH CHARACTER 5% 

138 TSASt! CS 2 

162 PRINT 

178 PRIMT "ITMRFUT & ROWS AS A 6 DIGIT & 
IMAR' UMM 1 <a Cae 

168 PRIMT 

198 FOR K=46850+T#e TO 460g8+THot+? 
20@ IMPUT bs 

eM@e IF LEMC BS o<>6 THEM PRIWT "WROMG Le 
NGTH!" GOTO eee 

2i@ H=1 

228 DC 

258 FOR J=1 TO LEM? BS ° 

240 AS=MIDS( BS. LEN. BSo-J+1. 12 

250 IF AS="" THEM 27a 

262 DCebl+h4 

era Mahe 

268 HEAT WJ 

298 POKE K.DI 

30@ MEXT kK. 
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SH 
ml Ss) 
3164 
328 
33k 
34 
be] 4) 
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PRIWT CHReSt T > 
FPR IMT 

FOR L=i TO 28 
PRIHT CHRS¢ T 3; 
HEXT 

PR THT 

Eto 


SCREEN PRINT 


Screen Print will give a copy of the television display ontoa 
line printer connected to the Centronics output port. 
Redefined characters will normally be printed in their 
standard undefined form. Different parts of the screen can 
be copied by changing the loop values in line 130 (number 


of lines) and line 140 (number of columns). 


On some printers the listing will be double spaced. Single 
spacing can usually be achieved by replacing line 180 with 
LPRINT CHR$ (27) 


1k 
11e 
Lek 
13 
140 
LSe 
Lee 
1 re 
13a 


i 


—_— 
im ip 
im? 


RET 

REM SCREEN FRIMT 
RES 

FOR J=@ TO 26 
FOR Kea TO Se 
Mere Kd 
LERIMT CHR Ho; 
MEAT 

LPR IMT 

MEAT J 

EME 
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You can : 
run an obstacle course 


protect six cities from missile atta 
ave a maiden from the dark kr 
sing High Resolution G 
a You can 
draw graphs 
plot circles 
s weave webs — 
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